(org-archive-subtree): Quote variable name.

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 313748e8e43d60a986140377a07ff2e619fbfb6d..5e3e9e968b83c02304e36c04e8af9a629334b707 100644 (file)
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -5528,9 +5528,10 @@ this heading. "
              (org-done-string tr-org-done-string)
              (org-todo-regexp tr-org-todo-regexp)
              (org-todo-line-regexp tr-org-todo-line-regexp)
-             (org-odd-levels-only (if (local-variable-p org-odd-levels-only)
-                                      org-odd-levels-only
-                                    tr-org-odd-levels-only)))
+             (org-odd-levels-only
+              (if (local-variable-p 'org-odd-levels-only)
+                  org-odd-levels-only
+                tr-org-odd-levels-only)))
          (goto-char (point-min))
          (if heading
              (progn